home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / newsgroups / misc.19970929-19971216 / 000191_news@newsmaster….columbia.edu _Tue Oct 28 09:42:32 1997.msg < prev    next >
Internet Message Format  |  1997-12-15  |  4KB
  1. Return-Path: <news@newsmaster.cc.columbia.edu>
  2. Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.35.30])
  3.     by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id JAA11713
  4.     for <kermit.misc@watsun.cc.columbia.edu>; Tue, 28 Oct 1997 09:42:31 -0500 (EST)
  5. Received: (from news@localhost)
  6.     by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id JAA03830
  7.     for kermit.misc@watsun; Tue, 28 Oct 1997 09:42:31 -0500 (EST)
  8. Path: news.columbia.edu!watsun.cc.columbia.edu!fdc
  9. From: fdc@watsun.cc.columbia.edu (Frank da Cruz)
  10. Newsgroups: comp.protocols.kermit.misc
  11. Subject: Re: Reading filename one at a time.
  12. Date: 28 Oct 1997 14:42:28 GMT
  13. Organization: Columbia University
  14. Lines: 82
  15. Message-ID: <634tkk$d8v$1@apakabar.cc.columbia.edu>
  16. References: <631sbo$hnl$1@goanna.cs.rmit.edu.au>
  17. NNTP-Posting-Host: watsun.cc.columbia.edu
  18. Xref: news.columbia.edu comp.protocols.kermit.misc:7972
  19.  
  20. In article <631sbo$hnl$1@goanna.cs.rmit.edu.au>,
  21. Ross Irvine <rwi@yallara.cs.rmit.edu.au> wrote:
  22. : I have more Kermit questions. :)
  23. : I'd like to do this.
  24. : 
  25. : while (no more files in dirctory)
  26. :     read filename into variable %a
  27. :         send %a
  28. :         if success delete %a
  29. : end loop
  30. : 
  31. That's easy, it's a no-op :-)  Maybe you meant:
  32.  
  33. : while (more files in directory)
  34. :     read filename into variable %a
  35. :         send %a
  36. :         if success delete %a
  37. : end loop
  38.  
  39. By the way, there is a MOVE command that does this (sends one or more files,
  40. and then deletes the source if and only if the transfer was successful).
  41.  
  42. : Basically I'd like to read all the filenames in a directory one at a time 
  43. : so I can work with each file seperately. This is using K95, but will 
  44. : hopefully work in msdos. I've looked through the Kermit book but haven't 
  45. : been able to find anything.
  46. : 
  47. Look on page 398.  Here's a more complete example; modify as desired.
  48. It assumes there is a Kermit server of recent vintage on the far end:
  49.  
  50. ---(cut)---
  51. local \%i \%f \%m \%n
  52. cd desired-directory
  53. assign \%n \ffiles(*)           ; The number of files in this directory.
  54. declare \&a[\%n]                ; Create an array to hold their names.
  55. for \%i 1 \%n 1 {               ; Fill the array
  56.     assign \&a[\%i] \fnextfile()
  57. }
  58. define \%m 0                    ; Counter for successful transfers
  59. set file type binary            ; Transfer in binary mode
  60.  
  61. for \%i 1 \%n 1 {               ; Loop to do each file
  62.     assign \%s \fsize(\&a[\%i]) ; Size of local file we are sending
  63.     send \&a[\%i]               ; Try to send it
  64.     if fail continue            ; If we failed just go on to next one
  65.  
  66.     remote query kermit files(\&a[\%i])
  67.     if equal "\v(query)" "" continue
  68.     if not equal "\v(query)" "1" continue
  69.  
  70.     xif equal "\v(program)" "C-Kermit" {
  71.         remote query kermit crc16
  72.         if equal {\v(query)} {} continue
  73.         if not equal {\v(query)} {\v(crc)} continue
  74.         remote query kermit fsize
  75.         if equal {\v(query)} {} continue
  76.         if not equal {\v(query)} {\%s} continue
  77.     }
  78.     delete \&a[\%i]
  79.     increment \%m                       ; And count it.
  80. }
  81. echo DONE
  82. echo \%m FILE(S) TRANSFERRED.
  83. echo \feval(\%n-\%m) FILE(S) NOT TRANSFERRED.
  84. ---(cut)---
  85.  
  86. Notes:  This script is ultra-paranoid about the success of the transfer.
  87. Really, you could replace the entire script with "move *" and have the
  88. same effect.  But this approach lets you add any other stuff you might like
  89. to do on a per-file basis.
  90.  
  91. The script illustrates how to do extra checking after the transfer: does the
  92. file really exist on the far side?  (Of course it does, or else the SEND would
  93. not have succeeded).  Is its size the same as the source file?  Do the CRC's
  94. match?  If and only if it passes all those tests, it is deleted.  C-Kermit
  95. 6.0, K95 1.1.13, or MS-DOS Kermit 3.15 or later are required.
  96.  
  97. The 'xif equal "\v(program)" "C-Kermit"' section takes advantage of features
  98. that are in C-Kermit 6.0 and K95 but not in MS-DOS Kermit 3.15.  You can use
  99. this same construction to deal with any other differences.
  100.  
  101. - Frank